home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / rexx / MicroRexx202.lha / MicroRexx / Rexx / Window.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-08-07  |  400 b   |  28 lines
  1. /* Window.rexx */
  2. options results
  3. address 'MicroRexx'
  4. 'OPENWIN' 10 10 300 100 'Window'
  5. w = result
  6. 'BUTTON' w 0 30 30 30 30 "QUIT" 2
  7. 'STRING' w 1 100 50 80 16 "»" 1 5
  8. 'GADGETSON' w
  9. 'GADGETHIT' w
  10. do forever
  11.   'GADGETHIT' w
  12.   g = result
  13.   say g
  14.   if g = 1 then do
  15.     'STRINGRESULT' w 1
  16.     say result
  17.   end
  18.   if g = 0 then do
  19.     signal 1
  20.   end
  21. end
  22. 1:
  23. 'GADGETSOFF' w
  24. 'KILLGADGETS' w
  25. 'CLOSEWIN' w
  26. exit
  27.  
  28.